COMP.DC[LSP,JRA] - www.SailDart.org

perm filename COMP.DC[LSP,JRA] blob sn#096202 filedate 1974-04-05 generic text, type C, neo UTF8

COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 ENDMK
C⊗;


(DEFPROP COMPEXP 
 (LAMBDA(EXP)
  (COND ((EQ (CAR EXP) (QUOTE QUOTE)) (LIST (LIST (QUOTE PUSH) (QUOTE P) EXP)))
	(T (COMPAPPLY (CAR EXP) (COMPLIS (CDR EXP)) (LENGTH (CDR EXP)))))) 
EXPR)

(DEFPROP COMPLIS 
 (LAMBDA (U) (COND ((NULL U) NIL) (T (APPEND (COMPEXP (CAR U)) (COMPLIS (CDR U)))))) 
EXPR)

(DEFPROP COMPAPPLY 
 (LAMBDA (FN ARGS N) (APPEND ARGS (LIST (LIST (QUOTE CALL) N (LIST (QUOTE E) FN))))) 
EXPR)